


***Create Figure 1

*Read in Figure1.dta

tw bar average year_count, bcolor(gs9) xlabel(1(1)14) xlabel(1 "1880s" 2 "1890s" 3 "1900s" 4 "1910s" 5 "1920s" 6 "1930s" 7 "1940s" 8 "1950s" 9 "1960s" 10 "1970s" 11 "1980s" 12 "1990s" 13 "2000s" 14 "2010s") ylabel(0 "0" 0.02 "2" 0.04 "4" 0.06 "6" 0.08 "8")  ytitle("Average Percentage of Executives Who Are Women", color(black)) xtitle("Year", size(medsmall)) legend(off) graphregion(color(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) lcolor(white) ilcolor(white)) lc(gs11) lpattern(1 1) || fpfit average year_count, lcolor(black) lpatt(dash)
graph export "${results}/figure1.eps", replace





 
